home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / LARC-MISSION.SDA / LARC MISSION (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  7.0 KB  |  190 lines
  1. 0 REM *********************************
  2. 1 REM *                               *
  3. 2 REM * THE LARC - MISSION   FOR C-64 *
  4. 3 REM *                               *
  5. 4 REM *    NELCUG DISK # C28 3/87     *
  6. 8 REM *********************************
  7. 9 POKE53265,0:POKE52,56:POKE56,56:CLR:POKE53272,30:T=RND(-TI)
  8. 10 PRINT"[147]";:POKE53280,2:POKE53281,5:IFPEEK(251)=1THEN20
  9. 11 PRINT"[147][158]PLEASE WAIT:":PRINT"[159]JOYSTICK PORT TWO":POKE1022,0:POKE1023,0
  10. 12 FORL=828TO909:READT:POKEL,T:NEXT:SYS828:POKE53265,27
  11. 13 FORL=49152TO49528:READT:POKEL,T:NEXT
  12. 14 FORL=232TO239:FORL1=0TO39:POKEL*64+L1,0:NEXT:NEXT
  13. 15 FORL=232TO239:FORL1=40TO63:READT:POKEL*64+L1,T:NEXT:NEXT
  14. 16 FORL=27TO31:FORL1=0TO7:READT:POKE14336+8*L+L1,T:NEXT:NEXT
  15. 17 FORL=33TO47:FORL1=0TO7:READT:POKE14336+8*L+L1,T:NEXT:NEXT
  16. 18 FORL=0TO7:POKE14840+L,PEEK(14608+L):NEXT
  17. 19 FORL=828TO996:READT:POKEL,T:NEXT:POKE251,1
  18. 20 POKE53265,27:GOSUB300:PRINT"[147]";:POKE53270,216:POKE53282,1:POKE53283,2
  19. 21 V=53248:POKEV,151:POKEV+1,150:POKE2040,232:POKEV+2,151:POKEV+3,153
  20. 22 POKE2041,233:POKEV+37,3:POKEV+38,11:POKEV+39,6:POKEV+40,0:POKEV+28,5
  21. 23 POKE2042,234:POKE2043,235:POKEV+41,11:POKEV+42,0:X=151:Y=198:S=49522
  22. 24 POKES,4:POKES+1,0:POKES+2,31:POKES+3,0:POKES+4,24:POKES+5,2:POKES+6,2
  23. 25 FORL=1TO24:PRINTSPC(32)"[144]        ";:NEXT:PRINTSPC(32)"       [146]";
  24. 26 POKE2023,160:POKE56295,0:GOSUB100:Q=PEEK(V+30):Q=PEEK(V+31)
  25. 27 DEFFNR(T)=INT(RND(1)*T):POKE252,0:POKE253,0:PRINT""W$:PRINT"[145]"S$
  26. 28 PRINT""SPC(15)"     ":PRINTSPC(15)"[145]     "
  27. 29 F1=1:F=-1:D=0:PRINT""SPC(32)"  HEAT  [157][157][157][157][157][157][157][157] SEEKER "
  28. 30 PRINT"";:FORL=1TO4:PRINTSPC(32)"[158]        ";:NEXT
  29. 31 PRINT"";:FORL=1TO5:PRINTSPC(32)"        ";:NEXT
  30. 32 PRINT"";:FORL=1TO4:PRINTSPC(32)"[156]        ";:NEXT
  31. 33 PRINT""SPC(32)"[158]DISTANCE"
  32. 34 PRINT""SPC(33)"[156]LEVEL":PRINTSPC(32)"[145]"LV
  33. 35 PRINT""SPC(32)" LONGEST[157][157][157][157][157][157][157][157]DISTANCE";
  34. 36 HI=PEEK(1023)*256+PEEK(1022):PRINTSPC(32)""HI
  35. 37 P=54272:GOSUB400
  36. 38 POKEP+5,15:POKEP+6,240:POKEP+1,100:POKEP+4,129:POKEP+24,6
  37. 39 POKE986,60:POKE991,3:SYS984:POKEV+21,15
  38. 40 IFF1=1THENF1=0:GOTO59
  39. 50 F=F+1:IFF>L1THENF=0:GOTO54
  40. 52 T=FNR(31):T1=FNR(5):PRINT""SPC(T)O$(T1):F1=1:GOTO59
  41. 54 PRINT""W$""S$
  42. 55 FORL=0TO1:T=FNR(29):PRINT""SPC(T)"    "SPC(T)"    ":NEXT:F1=1
  43. 59 SYS49152
  44. 60 Q=PEEK(253):IFQ=1THEN200
  45. 65 D=D+5:PRINT"[158]"SPC(32)D
  46. 70 IFL2>10THENFORL=1TOL2:NEXT
  47. 75 GOTO40
  48. 100 W$="[154][[[\]^_^^][\\[^_][\]^__]]^^_^][["
  49. 101 S$="[129]'''()*+**)'(('*+)'()*++))**+*)''"
  50. 102 O$(0)="$[157][144]/":O$(1)="[151]#[157][129]."
  51. 103 O$(2)="[152]!?[157][157][129],-":RETURN
  52. 200 POKE986,49:POKE991,234:SYS984:POKEV+21,3:POKEV+28,0
  53. 201 GOSUB400:POKEP+5,15:POKEP+6,240:POKEP+1,5:POKEP+24,15:POKEP+4,129
  54. 202 POKEV+39,7
  55. 205 FORL=236TO239:POKE2040,L:POKE2041,L
  56. 206 FORT=1TO150:NEXT:NEXT:POKEV+21,0
  57. 207 FORL=15TO0STEP-.1:POKEP+24,L:NEXT:POKEP+4,128
  58. 220 FORT=1TO25:SYS49152:NEXT
  59. 230 PRINT""SPC(10)"%%%%%%%%%%%%":SYS49152
  60. 231 PRINT""SPC(10)"%GAME  OVER[146]%":SYS49152
  61. 232 PRINT""SPC(10)"%%%%%%%%%%%%":SYS49152
  62. 233 PRINT""SPC(10)"&&&&&&&&&&&&":SYS49152
  63. 234 FORL=1TO7:SYS49152:NEXT:FORL=1TO200:NEXT
  64. 251 HI=PEEK(1023)*256+PEEK(1022)
  65. 252 IFD<=HITHEN260
  66. 253 T=INT(D/256):T1=D-T*256:POKE1023,T:POKE1022,T1
  67. 254 GOSUB400:POKEP+5,15:POKEP+6,240:FORL=1TO15:POKEP+1,40:POKEP+4,33
  68. 255 PRINT""SPC(8)"CONGRATULATIONS!":FORT=1TO30:NEXT:POKEP+1,50
  69. 256 PRINT""SPC(8)"[158]CONGRATULATIONS!":FORT=1TO30:NEXT
  70. 257 NEXT:GOSUB400:PRINT""SPC(32)D
  71. 258 PRINT""SPC(6)"LONGEST DISTANCE YET":FORL=1TO3000:NEXT
  72. 260 GOTO20
  73. 300 GOSUB340:PRINT""SPC(9)"&&&&&&&&&&&&&&&&&&&&&&"
  74. 301 PRINTSPC(9)"%%%%%%%%%%%%%%%%%%%%%%"
  75. 302 PRINTSPC(9)"% THE LARC [192] MISSION [146]%"
  76. 303 PRINTSPC(9)"%%%%%%%%%%%%%%%%%%%%%%"
  77. 305 PRINT""SPC(12)"BY JOSEPH BEDARD"
  78. 310 PRINT""SPC(13)"[159] ENTER  LEVEL "
  79. 315 PRINT""SPC(14)"[156]1[146][158]: EASY"
  80. 320 PRINT""SPC(14)"[156]2[146][158]: MODERATE"
  81. 325 PRINT""SPC(14)"[156]3[146][158]: DIFFICULT"
  82. 327 POKE198,0
  83. 330 GETA$:IFA$<"1"ORA$>"3"THEN330
  84. 335 T=VAL(A$):LV=T:L1=(4-T)*10+1:L2=100-T*30:RETURN
  85. 340 PRINT"[147]";
  86. 341 PRINTSPC(8)"[144]                        "
  87. 342 FORL=1TO19:PRINTSPC(8)"[144] "SPC(22)" ":NEXT
  88. 343 PRINTSPC(8)"[144]                        "
  89. 345 RETURN
  90. 400 FORL=PTOP+23:POKEL,0:NEXT:POKEP+24,15:RETURN
  91. 59999 REM *** ML CHARACTER TRANSFER ***
  92. 60000 DATA173,14,220,41,254,141,14
  93. 60010 DATA220,173,24,208,41,14,10,10
  94. 60020 DATA133,167,169,208,133,252,173
  95. 60030 DATA0,221,41,3,73,3,10,10,10,10
  96. 60040 DATA10,10,5,167,133,254,165,1,41
  97. 60050 DATA251,133,1,169,0,133,251,133
  98. 60060 DATA253,168,162,8,177,251,145,253
  99. 60070 DATA200,208,249,230,252,230,254
  100. 60080 DATA202,208,242,165,1,9,4,133,1
  101. 60090 DATA173,14,220,9,1,141,14,220,96
  102. 60100 REM *** ML SCROLL DATA ***
  103. 60110 DATA174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  104. 60120 DATA118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  105. 60130 DATA169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
  106. 60140 DATA116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
  107. 60150 DATA204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
  108. 60160 DATA145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
  109. 60170 DATA76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
  110. 60180 DATA193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
  111. 60190 DATA169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  112. 60200 DATA16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  113. 60210 DATA236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  114. 60220 DATA177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
  115. 60230 DATA234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
  116. 60240 DATA116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
  117. 60250 DATA104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
  118. 60260 DATA32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
  119. 60270 DATA193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  120. 60280 DATA133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
  121. 60290 DATA24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
  122. 60300 DATA120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
  123. 60310 DATA32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  124. 60320 DATA5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0
  125. 60330 DATA4,1,1
  126. 60340 REM *** SPRITE DATA ***
  127. 60390 REM SHIP
  128. 60400 DATA8,0,0,38,0,0,170,128
  129. 60410 DATA3,166,176,15,85,124,21,247
  130. 60420 DATA213,0,85,64,0,0,0,0
  131. 60470 REM SHIP'S SHADOW
  132. 60480 DATA4,0,0,21,0,0,85,64
  133. 60490 DATA1,85,80,5,85,84,21,85
  134. 60500 DATA85,0,85,64,0,0,0,0
  135. 60550 REM MISSLE
  136. 60560 DATA0,0,0,4,0,0,8,0
  137. 60570 DATA0,8,0,0,8,0,0,8
  138. 60580 DATA0,0,59,0,0,251,192,0
  139. 60630 REM MISSLE'S SHADOW
  140. 60640 DATA0,0,0,4,0,0,4,0
  141. 60650 DATA0,4,0,0,4,0,0,4
  142. 60660 DATA0,0,21,0,0,85,64,0
  143. 60710 REM EXPLOSION I
  144. 60720 DATA0,0,0,0,0,0,0,0
  145. 60730 DATA0,10,0,0,40,0,0,0
  146. 60740 DATA0,0,0,0,0,0,0,0
  147. 60790 REM EXPLOSION II
  148. 60800 DATA0,0,0,0,0,0,34,0
  149. 60810 DATA0,0,0,0,128,128,0,8
  150. 60820 DATA0,0,0,0,0,0,0,0
  151. 60870 REM EXPLOSION III
  152. 60880 DATA0,0,0,32,0,0,0,128
  153. 60890 DATA2,0,0,0,0,32,0,32
  154. 60900 DATA0,0,0,128,0,0,0,0
  155. 60950 REM EXPLOSION IV
  156. 60960 DATA32,32,0,0,0,0,0,0
  157. 60970 DATA0,0,8,8,0,0,0,0
  158. 60980 DATA0,0,0,0,0,32,32,0
  159. 61070 REM *** CHARACTER DATA ***
  160. 61080 DATA85,85,255,255,255,255,255,255
  161. 61090 DATA64,81,213,247,255,255,255,255
  162. 61100 DATA0,21,85,127,255,255,255,255
  163. 61110 DATA0,0,64,85,213,255,255,255
  164. 61120 DATA0,0,0,1,69,87,223,255
  165. 61130 DATA5,21,22,25,5,15,51,204
  166. 61140 DATA0,64,64,64,0,192,48,204
  167. 61150 DATA20,85,150,187,187,187,121,20
  168. 61160 DATA24,60,60,60,60,60,60,60
  169. 61170 DATA0,255,0,255,0,255,0,255
  170. 61180 DATA0,0,0,0,0,0,0,255
  171. 61190 DATA255,255,255,255,255,255,0,0
  172. 61200 DATA255,255,255,255,243,192,0,0
  173. 61210 DATA255,255,255,255,63,0,0,0
  174. 61220 DATA255,255,255,240,192,0,0,0
  175. 61230 DATA255,207,3,0,0,0,0,0
  176. 61240 DATA255,15,3,15,15,3,0,0
  177. 61250 DATA252,192,0,192,192,0,0,0
  178. 61260 DATA195,255,255,255,255,60,0,0
  179. 61270 DATA60,60,60,60,60,24,0,0
  180. 61280 REM *** ML ROUTINE ***
  181. 61290 DATA174,0,220,224,123,208,11,172,0,208,136,192,24,240,3,76,90,3,224,119
  182. 61300 DATA208,17,172,0,208,200,192,255,240,9,140,0,208,140,2,208,76,135,3,224
  183. 61310 DATA126,208,11,172,1,208,136,192,100,240,3,76,126,3,224,125,208,17,172,1
  184. 61320 DATA208,200,192,198,240,9,140,1,208,152,105,3,141,3,208,166,252,224,1,240
  185. 61330 DATA12,162,1,134,252,169,252,172,0,208,76,161,3,173,5,208,172,0,208,233
  186. 61340 DATA1,141,5,208,105,3,141,7,208,140,4,208,140,6,208,173,1,208,205,5
  187. 61350 DATA208,208,4,162,1,134,253,172,31,208,152,41,1,201,1,208,4,162,1,134
  188. 61360 DATA253,152,41,4,201,4,208,4,162,0,134,252,76,49,234,0
  189. 61370 DATA120,169,60,141,20,3,169,3,141,21,3,88,96
  190.